subroutine F77_readlabels(labels,n)
    implicit none
    character(len=4) :: labels(*)
    integer :: n
    integer :: o
    character(len=4), allocatable :: lab0(:)
    interface
        subroutine F_readlabels(labels)
            implicit none
            character(len=4) :: labels(:)
        end subroutine F_readlabels
    end interface
    allocate(lab0(n))
    call F_readlabels(lab0)
    do o=1,n
        labels(o)=lab0(o)
    enddo
end subroutine F77_readlabels
